5 POKE53280,6:POKE53281,6:PRINT"[147]"
10 PRINT "[147]":D=8
20 PRINT:F$="":INPUT "FILENAME";F$:IF F$="" THEN END
30 OPEN 15,D,15:OPEN 8,D,8,"0:"+F$+",S,R":CLOSE 8:INPUT#15,E,E$:CLOSE 15
40 IF E THEN PRINT E$:GOTO 20
50 PRINT "S[146]CREEN OR P[146]RINTER?"
60 GET K$
70 IF K$="S" THEN 100
80 IF K$="P" THEN 150
90 GOTO 60
100 OPEN 8,D,8,"0:"+F$+",S,R"
110 IF PEEK(653)=1 THEN 110
120 GET K$:IF K$="_" THEN CLOSE 8:GOTO 20
130 GET#8,A$:IF ST=64 THEN CLOSE 8:GOTO 20
140 PRINT A$;:GOTO 110
150 OPEN 8,D,8,"0:"+F$+",S,R":OPEN 4,4,7
160 IF PEEK(653)=1 THEN 160
170 GET K$:IF K$="_" THEN CLOSE 8:CLOSE 4:GOTO 20
180 GET#8,A$:IF ST=64 THEN CLOSE 8:CLOSE 4:GOTO 20
190 PRINT#4,A$;:GOTO 150